home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1 Issue 2 / PDCD-1 - Issue 02.iso / _utilities / utilities / 004 / gstobject / message / Example / Message (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1994-09-11  |  638b  |  31 lines
  1.  Author: George Taylor, george@tardis.ed.ac.uk
  2. _AssembleRequests_message
  3.  b,p,P%,requestBlock,pairsStart,pairsEnd,branchStart,branchEnd
  4.  b 256
  5.  p=0 
  6. [ OPT p
  7. .requestBlock
  8. ; Adhesive request block
  9.  EQUD 148
  10.  EQUD 0
  11.  EQUD 0
  12.  EQUD 0
  13. # EQUD (branchEnd-branchStart)/4
  14. ! EQUD (pairsEnd-pairsStart)/8
  15. ; pairs themselves
  16. .pairsStart
  17.   EQUD 0
  18.   EQUD 2
  19. .pairsEnd
  20. ; branch table
  21. .branchStart
  22. .message_Open%
  23.   MOVS  PC,R14
  24. .message_Close%
  25.   MOVS  PC,R14
  26. .message_Lookup%
  27.   MOVS  PC,R14
  28. .branchEnd
  29.  EQUD 0
  30. = requestBlock
  31.